home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / versa11.arc / VERSA1-C.MNU < prev    next >
Text File  |  1987-05-23  |  23KB  |  547 lines
  1. ;PC-Pursuit: VERSAdial
  2. ;VERSA1-C.MNU
  3. ;This is the menu file for the six cities listed below.  It is executed
  4. ;when any of these six area codes are selected by the user.
  5. ;This file is NOT TO BE USED DURING EXECUTION!  There is an optimized version
  6. ;of this file for use.
  7.  
  8.  
  9. ;========== SELECT ==========
  10. ;This code segment determines which menu will be drawn.
  11.  
  12. SELECT:
  13. SWITCH S1                  ;Decision based on selected area code
  14.    CASE "404"
  15.       GOTO ATLANTA         ;All six cases are more or less identical.
  16.    ENDCASE                 ;Each performs a GOTO to the proper label
  17.    CASE "617"              ;associated with each area code.
  18.       GOTO BOSTON
  19.    ENDCASE
  20.    CASE "216"
  21.       GOTO CLEVELAND
  22.    ENDCASE
  23.    CASE "313"
  24.       GOTO DETROIT
  25.    ENDCASE
  26.    CASE "305"
  27.       GOTO MIAMI
  28.    ENDCASE
  29.    CASE "201"
  30.       GOTO NEWARK
  31.    ENDCASE
  32.    DEFAULT                 ;If S2 equals anything else, it's an error
  33.       ASSIGN S9 "ERROR"    ;Put this in S9 . . .
  34.       EXECUTE "VERSA.CMD"  ;Go back to VERSA (which will terminate)
  35.    ENDCASE
  36. ENDSWITCH
  37.  
  38.  
  39. ;========== ATLANTA ==========
  40.  
  41. ATLANTA:
  42. CLEAR                          ;Clear the screen for menu drawing
  43. LOCATE 2,0                     ;Locate the cursor for menu drawing
  44. MESSAGE "               ╒════════╡ Atlanta BBS Directory  (404) ╞════════╕"
  45. MESSAGE "               │                                                │"
  46. MESSAGE "               │       -Board-                      -SIG-       │"
  47. MESSAGE "               │                                                │"
  48. MESSAGE "               │  < 1> GBBS                                     │"
  49. MESSAGE "               │  < 2> Flagship BBS                             │"
  50. MESSAGE "               │  < 3> Atlanta PCUG                 Unprotects  │"
  51. MESSAGE "               │  < 4> T. J.'s                                  │"
  52. MESSAGE "               │  < 5> Kahn's BBS      Artificial Intelligence  │"
  53. MESSAGE "               │  < 6> Southside BBS                            │"
  54. MESSAGE "               │  < 7> Gumby's Place                            │"
  55. MESSAGE "               │  < 8> La Chateau                               │"
  56. MESSAGE "               │  < 9>                                          │"
  57. MESSAGE "               │  <10>                                          │"
  58. MESSAGE "               │                                                │"
  59. MESSAGE "               │          <G>o back to city selection           │"
  60. MESSAGE "               │                                                │"
  61. MESSAGE "               ├────────────────────────────────────────────────┤"
  62. MESSAGE "               │  Enter 1-10 or other BBS phone number:         │"
  63. MESSAGE "               ╘════════════════════════════════════════════════╛"
  64. LOCATE 20,56                   ;Locate cursor for user input
  65. GET S9 7                       ;User input (7 characters)
  66. SWITCH S9                      ;Decision based on user input
  67.    CASE "1"
  68.       ASSIGN S2 "4576815"      ;Cases 1 through 10 are identical.  Each
  69.      ;ASSIGN S7 "COMMAND.VER"  ;assigns a phone number to be dialed to
  70.    ENDCASE                     ;S2, and a command file to be executed on
  71.    CASE "2"                    ;connect to S7 (the command file is
  72.       ASSIGN S2 "9346299"      ;optional).
  73.      ;ASSIGN S7 "COMMAND.VER"
  74.    ENDCASE
  75.    CASE "3"
  76.       ASSIGN S2 "4330062"
  77.      ;ASSIGN S7 "COMMAND.VER"
  78.    ENDCASE
  79.    CASE "4"
  80.       ASSIGN S2 "3921756"
  81.      ;ASSIGN S7 "COMMAND.VER"
  82.    ENDCASE
  83.    CASE "5"
  84.       ASSIGN S2 "9346299"
  85.      ;ASSIGN S7 "COMMAND.VER"
  86.    ENDCASE
  87.    CASE "6"
  88.       ASSIGN S2 "7670092"
  89.      ;ASSIGN S7 "COMMAND.VER"
  90.    ENDCASE
  91.    CASE "7"
  92.       ASSIGN S2 "9396569"
  93.      ;ASSIGN S7 "COMMAND.VER"
  94.    ENDCASE
  95.    CASE "8"
  96.       ASSIGN S2 "9877940"
  97.      ;ASSIGN S7 "COMMAND.VER"
  98.    ENDCASE
  99.    CASE "9"
  100.       ASSIGN S2 "XXXXXXX"
  101.      ;ASSIGN S7 "COMMAND.VER"
  102.    ENDCASE
  103.    CASE "10"
  104.       ASSIGN S2 "XXXXXXX"
  105.      ;ASSIGN S7 "COMMAND.VER"
  106.    ENDCASE
  107.    CASE "D"                    ;If user enters "D" . . .
  108.       EXECUTE "VERSA.CMD"      ;Leave the "D" in S9, execute VERSA
  109.    ENDCASE
  110.    CASE "E"                    ;If user enters "E" . . .
  111.       EXECUTE "VERSA.CMD"      ;Leave the "E" in S9, execute VERSA
  112.    ENDCASE
  113.    CASE "G"                    ;If user enters "G" . . .
  114.       EXECUTE "VERSA.CMD"      ;Leave the "G" in S9, execute VERSA
  115.    ENDCASE
  116.    DEFAULT                     ;Any other input should be a phone number
  117.       ASSIGN S2 S9             ;Assign the user input to S2
  118.    ENDCASE
  119. ENDSWITCH                      ;All possibilities covered
  120. ASSIGN S9 "ACTIVE"             ;Finally, put "ACTIVE" in S9 . . .
  121. EXECUTE "VERSA.CMD"            ;And go back to VERSA
  122.  
  123.  
  124. ;========== BOSTON ==========
  125.  
  126. BOSTON:
  127. CLEAR                          ;Clear the screen for menu drawing
  128. LOCATE 2,0                     ;Locate the cursor for menu drawing
  129. MESSAGE "               ╒═════════╡ Boston BBS Directory (617) ╞═════════╕"
  130. MESSAGE "               │                                                │"
  131. MESSAGE "               │       -Board-                      -SIG-       │"
  132. MESSAGE "               │                                                │"
  133. MESSAGE "               │  < 1> Boston Computer Society                  │"
  134. MESSAGE "               │  < 2> Alpha Computer Society                   │"
  135. MESSAGE "               │  < 3> Wonderland BBS                           │"
  136. MESSAGE "               │  < 4> Harvard BBS                              │"
  137. MESSAGE "               │  < 5> Microcom's MNP                 MNP Info  │"
  138. MESSAGE "               │  < 6> Boston Fog                               │"
  139. MESSAGE "               │  < 7> PC Week FIDO                             │"
  140. MESSAGE "               │  < 8> The Billboard                            │"
  141. MESSAGE "               │  < 9> Northeastern Exchange                    │"
  142. MESSAGE "               │  <10>                                          │"
  143. MESSAGE "               │                                                │"
  144. MESSAGE "               │          <G>o back to city selection           │"
  145. MESSAGE "               │                                                │"
  146. MESSAGE "               ├────────────────────────────────────────────────┤"
  147. MESSAGE "               │  Enter 1-10 or other BBS phone number:         │"
  148. MESSAGE "               ╘════════════════════════════════════════════════╛"
  149. LOCATE 20,56                   ;Locate cursor for user input
  150. GET S9 7                       ;User input (7 characters)
  151. SWITCH S9                      ;Decision based on user input
  152.    CASE "1"
  153.       ASSIGN S2 "2373750"      ;Cases 1 through 10 are identical.  Each
  154.      ;ASSIGN S7 "COMMAND.VER"  ;assigns a phone number to be dialed to
  155.    ENDCASE                     ;S2, and a command file to be executed on
  156.    CASE "2"                    ;connect to S7 (the command file is
  157.       ASSIGN S2 "2292915"      ;optional).
  158.      ;ASSIGN S7 "COMMAND.VER"
  159.    ENDCASE
  160.    CASE "3"
  161.       ASSIGN S2 "6653796"
  162.      ;ASSIGN S7 "COMMAND.VER"
  163.    ENDCASE
  164.    CASE "4"
  165.       ASSIGN S2 "4984379"
  166.      ;ASSIGN S7 "COMMAND.VER"
  167.    ENDCASE
  168.    CASE "5"
  169.       ASSIGN S2 "7699358"
  170.      ;ASSIGN S7 "COMMAND.VER"
  171.    ENDCASE
  172.    CASE "6"
  173.       ASSIGN S2 "2884667"
  174.      ;ASSIGN S7 "COMMAND.VER"
  175.    ENDCASE
  176.    CASE "7"
  177.       ASSIGN S2 "5361917"
  178.      ;ASSIGN S7 "COMMAND.VER"
  179.    ENDCASE
  180.    CASE "8"
  181.       ASSIGN S2 "9658761"
  182.      ;ASSIGN S7 "COMMAND.VER"
  183.    ENDCASE
  184.    CASE "9"
  185.       ASSIGN S2 "9653121"
  186.      ;ASSIGN S7 "COMMAND.VER"
  187.    ENDCASE
  188.    CASE "10"
  189.       ASSIGN S2 "XXXXXXX"
  190.      ;ASSIGN S7 "COMMAND.VER"
  191.    ENDCASE
  192.    CASE "D"                    ;If user enters "D" . . .
  193.       EXECUTE "VERSA.CMD"      ;Leave the "D" in S9, execute VERSA
  194.    ENDCASE
  195.    CASE "E"                    ;If user enters "E" . . .
  196.       EXECUTE "VERSA.CMD"      ;Leave the "E" in S9, execute VERSA
  197.    ENDCASE
  198.    CASE "G"                    ;If user enters "G" . . .
  199.       EXECUTE "VERSA.CMD"      ;Leave the "G" in S9, execute VERSA
  200.    ENDCASE
  201.    DEFAULT                     ;Any other input should be a phone number
  202.       ASSIGN S2 S9             ;Assign user input to S2
  203.    ENDCASE
  204. ENDSWITCH
  205. ASSIGN S9 "ACTIVE"             ;Finally, put "ACTIVE" in S9 . . .
  206. EXECUTE "VERSA.CMD"            ;And go back to VERSA
  207.  
  208.  
  209. ;========== CLEVELAND ==========
  210.  
  211. CLEVELAND:
  212. CLEAR                          ;Clear the screen for menu drawing
  213. LOCATE 2,0                     ;Locate the cursor for menu drawing
  214. MESSAGE "               ╒═══════╡ Cleveland BBS Directory  (216) ╞═══════╕"
  215. MESSAGE "               │                                                │"
  216. MESSAGE "               │       -Board-                      -SIG-       │"
  217. MESSAGE "               │                                                │"
  218. MESSAGE "               │  < 1> Cleveland RBBS                           │"
  219. MESSAGE "               │  < 2> InfoGuide                                │"
  220. MESSAGE "               │  < 3> InfoGuide (other line)                   │"
  221. MESSAGE "               │  < 4> Micro-Chip                               │"
  222. MESSAGE "               │  < 5> GCPCUG/JCU BBS                           │"
  223. MESSAGE "               │  < 6> The Machine                              │"
  224. MESSAGE "               │  < 7> Free-Net                                 │"
  225. MESSAGE "               │  < 8> Data-Term                                │"
  226. MESSAGE "               │  < 9> Dog House                                │"
  227. MESSAGE "               │  <10>                                          │"
  228. MESSAGE "               │                                                │"
  229. MESSAGE "               │          <G>o back to city selection           │"
  230. MESSAGE "               │                                                │"
  231. MESSAGE "               ├────────────────────────────────────────────────┤"
  232. MESSAGE "               │  Enter 1-10 or other BBS phone number:         │"
  233. MESSAGE "               ╘════════════════════════════════════════════════╛"
  234. LOCATE 20,56                   ;Locate cursor for user input
  235. GET S9 7                       ;User input (7 characters)
  236. SWITCH S9                      ;Decision based on user input
  237.    CASE "1"
  238.       ASSIGN S2 "3313576"      ;Cases 1 through 10 are identical.  Each
  239.      ;ASSIGN S7 "COMMAND.VER"  ;assigns a phone number to be dialed to
  240.    ENDCASE                     ;S2, and a command file to be executed on
  241.    CASE "2"                    ;connect to S7 (the command file is
  242.       ASSIGN S2 "6213434"      ;optional).
  243.      ;ASSIGN S7 "COMMAND.VER"
  244.    ENDCASE
  245.    CASE "3"
  246.       ASSIGN S2 "6213435"
  247.      ;ASSIGN S7 "COMMAND.VER"
  248.    ENDCASE
  249.    CASE "4"
  250.       ASSIGN S2 "2256130"
  251.      ;ASSIGN S7 "COMMAND.VER"
  252.    ENDCASE
  253.    CASE "5"
  254.       ASSIGN S2 "3974256"
  255.      ;ASSIGN S7 "COMMAND.VER"
  256.    ENDCASE
  257.    CASE "6"
  258.       ASSIGN S2 "2521288"
  259.      ;ASSIGN S7 "COMMAND.VER"
  260.    ENDCASE
  261.    CASE "7"
  262.       ASSIGN S2 "3683888"
  263.      ;ASSIGN S7 "COMMAND.VER"
  264.    ENDCASE
  265.    CASE "8"
  266.       ASSIGN S2 "5623263"
  267.      ;ASSIGN S7 "COMMAND.VER"
  268.    ENDCASE
  269.    CASE "9"
  270.       ASSIGN S2 "2510110"
  271.      ;ASSIGN S7 "COMMAND.VER"
  272.    ENDCASE
  273.    CASE "10"
  274.       ASSIGN S2 "XXXXXXX"
  275.      ;ASSIGN S7 "COMMAND.VER"
  276.    ENDCASE
  277.    CASE "D"                    ;If user enters "D" . . .
  278.       EXECUTE "VERSA.CMD"      ;Leave the "D" in S9, execute VERSA
  279.    ENDCASE
  280.    CASE "E"                    ;If user enters "E" . . .
  281.       EXECUTE "VERSA.CMD"      ;Leave the "E" in S9, execute VERSA
  282.    ENDCASE
  283.    CASE "G"                    ;If user enters "G" . . .
  284.       EXECUTE "VERSA.CMD"      ;Leave the "G" in S9, execute VERSA
  285.    ENDCASE
  286.    DEFAULT                     ;Any other input should be a phone number
  287.       ASSIGN S2 S9             ;Assign user input to S2
  288.    ENDCASE
  289. ENDSWITCH                      ;All possibilities covered
  290. ASSIGN S9 "ACTIVE"             ;Finally, put "ACTIVE" in S9 . . .
  291. EXECUTE "VERSA.CMD"            ;And go back to VERSA
  292.  
  293.  
  294. ;========== DETROIT ==========
  295.  
  296. DETROIT:
  297. CLEAR                          ;Clear the screen for menu drawing
  298. LOCATE 2,0                     ;Locate the cursor for menu drawing
  299. MESSAGE "               ╒════════╡ Detroit BBS Directory  (313) ╞════════╕"
  300. MESSAGE "               │                                                │"
  301. MESSAGE "               │       -Board-                      -SIG-       │"
  302. MESSAGE "               │                                                │"
  303. MESSAGE "               │  < 1> PCUTIL                                   │"
  304. MESSAGE "               │  < 2> Freeform                                 │"
  305. MESSAGE "               │  < 3> East Area BBS                            │"
  306. MESSAGE "               │  < 4> Microchip                                │"
  307. MESSAGE "               │  < 5> 007's Computer Runway                    │"
  308. MESSAGE "               │  < 6> Daedalus                                 │"
  309. MESSAGE "               │  < 7> Arcade                                   │"
  310. MESSAGE "               │  < 8> 23 Cutting Board                         │"
  311. MESSAGE "               │  < 9> Bit Bucket                               │"
  312. MESSAGE "               │  <10>                                          │"
  313. MESSAGE "               │                                                │"
  314. MESSAGE "               │          <G>o back to city selection           │"
  315. MESSAGE "               │                                                │"
  316. MESSAGE "               ├────────────────────────────────────────────────┤"
  317. MESSAGE "               │  Enter 1-10 or other BBS phone number:         │"
  318. MESSAGE "               ╘════════════════════════════════════════════════╛"
  319. LOCATE 20,56                   ;Locate cursor for user input
  320. GET S9 7                       ;User input (7 characters)
  321. SWITCH S9                      ;Decision based on user input
  322.    CASE "1"
  323.       ASSIGN S2 "3930527"      ;Cases 1 through 10 are identical.  Each
  324.      ;ASSIGN S7 "COMMAND.VER"  ;assigns a phone number to be dialed to
  325.    ENDCASE                     ;S2, and a command file to be executed on
  326.    CASE "2"                    ;connect to S7 (the command file is
  327.       ASSIGN S2 "7747258"      ;optional).
  328.      ;ASSIGN S7 "COMMAND.VER"
  329.    ENDCASE
  330.    CASE "3"
  331.       ASSIGN S2 "9496665"
  332.      ;ASSIGN S7 "COMMAND.VER"
  333.    ENDCASE
  334.    CASE "4"
  335.       ASSIGN S2 "9496745"
  336.      ;ASSIGN S7 "COMMAND.VER"
  337.    ENDCASE
  338.    CASE "5"
  339.       ASSIGN S2 "3488535"
  340.      ;ASSIGN S7 "COMMAND.VER"
  341.    ENDCASE
  342.    CASE "6"
  343.       ASSIGN S2 "9331425"
  344.      ;ASSIGN S7 "COMMAND.VER"
  345.    ENDCASE
  346.    CASE "7"
  347.       ASSIGN S2 "9788087"
  348.      ;ASSIGN S7 "COMMAND.VER"
  349.    ENDCASE
  350.    CASE "8"
  351.       ASSIGN S2 "2917716"
  352.      ;ASSIGN S7 "COMMAND.VER"
  353.    ENDCASE
  354.    CASE "9"
  355.       ASSIGN S2 "3430877"
  356.      ;ASSIGN S7 "COMMAND.VER"
  357.    ENDCASE
  358.    CASE "10"
  359.       ASSIGN S2 "XXXXXXX"
  360.      ;ASSIGN S7 "COMMAND.VER"
  361.    ENDCASE
  362.    CASE "D"                    ;If user enters "D" . . .
  363.       EXECUTE "VERSA.CMD"      ;Leave the "D" in S9, execute VERSA
  364.    ENDCASE
  365.    CASE "E"                    ;If user enters "E" . . .
  366.       EXECUTE "VERSA.CMD"      ;Leave the "E" in S9, execute VERSA
  367.    ENDCASE
  368.    CASE "G"                    ;If user enters "G" . . .
  369.       EXECUTE "VERSA.CMD"      ;Leave the "G" in S9, execute VERSA
  370.    ENDCASE
  371.    DEFAULT                     ;Any other input should be a phone number
  372.       ASSIGN S2 S9             ;Assign user input to S2
  373.    ENDCASE
  374. ENDSWITCH                      ;All possibilities covered
  375. ASSIGN S9 "ACTIVE"             ;Finally, put "ACTIVE" in S9 . . .
  376. EXECUTE "VERSA.CMD"            ;And go back to VERSA
  377.  
  378.  
  379. ;========== MIAMI ==========
  380.  
  381. MIAMI:
  382. CLEAR                          ;Clear the screen for menu drawing
  383. LOCATE 2,0                     ;Locate the cursor for menu drawing
  384. MESSAGE "               ╒═════════╡ Miami BBS Directory  (305) ╞═════════╕"
  385. MESSAGE "               │                                                │"
  386. MESSAGE "               │       -Board-                      -SIG-       │"
  387. MESSAGE "               │                                                │"
  388. MESSAGE "               │  < 1> Adults Only II                           │"
  389. MESSAGE "               │  < 2> Miami PC Network                         │"
  390. MESSAGE "               │  < 3> Miami Users Group                        │"
  391. MESSAGE "               │  < 4> The Kendall Switchboard                  │"
  392. MESSAGE "               │  < 5> CompuSci Fido                            │"
  393. MESSAGE "               │  < 6> Genesis BBS                              │"
  394. MESSAGE "               │  < 7> John Galt Line                           │"
  395. MESSAGE "               │  < 8> Miami Dade Fido                          │"
  396. MESSAGE "               │  < 9>                                          │"
  397. MESSAGE "               │  <10>                                          │"
  398. MESSAGE "               │                                                │"
  399. MESSAGE "               │          <G>o back to city selection           │"
  400. MESSAGE "               │                                                │"
  401. MESSAGE "               ├────────────────────────────────────────────────┤"
  402. MESSAGE "               │  Enter 1-10 or other BBS phone number:         │"
  403. MESSAGE "               ╘════════════════════════════════════════════════╛"
  404. LOCATE 20,56                   ;Locate cursor for user input
  405. GET S9 7                       ;User input (7 characters)
  406. SWITCH S9                      ;Decision based on user input
  407.    CASE "1"
  408.       ASSIGN S2 "5944526"      ;Cases 1 through 10 are identical.  Each
  409.      ;ASSIGN S7 "COMMAND.VER"  ;assigns a phone number to be dialed to
  410.    ENDCASE                     ;S2, and a command file to be executed on
  411.    CASE "2"                    ;connect to S7 (the command file is
  412.       ASSIGN S2 "9354964"      ;optional).
  413.      ;ASSIGN S7 "COMMAND.VER"
  414.    ENDCASE
  415.    CASE "3"
  416.       ASSIGN S2 "6217534"
  417.      ;ASSIGN S7 "COMMAND.VER"
  418.    ENDCASE
  419.    CASE "4"
  420.       ASSIGN S2 "2712146"
  421.      ;ASSIGN S7 "COMMAND.VER"
  422.    ENDCASE
  423.    CASE "5"
  424.       ASSIGN S2 "7584871"
  425.      ;ASSIGN S7 "COMMAND.VER"
  426.    ENDCASE
  427.    CASE "6"
  428.       ASSIGN S2 "8952998"
  429.      ;ASSIGN S7 "COMMAND.VER"
  430.    ENDCASE
  431.    CASE "7"
  432.       ASSIGN S2 "2351645"
  433.      ;ASSIGN S7 "COMMAND.VER"
  434.    ENDCASE
  435.    CASE "8"
  436.       ASSIGN S2 "3472970"
  437.      ;ASSIGN S7 "COMMAND.VER"
  438.    ENDCASE
  439.    CASE "9"
  440.       ASSIGN S2 "XXXXXXX"
  441.      ;ASSIGN S7 "COMMAND.VER"
  442.    ENDCASE
  443.    CASE "10"
  444.       ASSIGN S2 "XXXXXXX"
  445.      ;ASSIGN S7 "COMMAND.VER"
  446.    ENDCASE
  447.    CASE "D"                    ;If user enters "D" . . .
  448.       EXECUTE "VERSA.CMD"      ;Leave the "D" in S9, execute VERSA
  449.    ENDCASE
  450.    CASE "E"                    ;If user enters "E" . . .
  451.       EXECUTE "VERSA.CMD"      ;Leave the "E" in S9, execute VERSA
  452.    ENDCASE
  453.    CASE "G"                    ;If user enters "G" . . .
  454.       EXECUTE "VERSA.CMD"      ;Leave the "G" in S9, execute VERSA
  455.    ENDCASE
  456.    DEFAULT                     ;Any other input should be a phone number
  457.       ASSIGN S2 S9             ;Assign user input to S2
  458.    ENDCASE
  459. ENDSWITCH                      ;All possibilities covered
  460. ASSIGN S9 "ACTIVE"             ;Finally, put "ACTIVE" in S9 . . .
  461. EXECUTE "VERSA.CMD"            ;And go back to VERSA
  462.  
  463.  
  464. ;========== NEWARK ==========
  465.  
  466. NEWARK:
  467. CLEAR                          ;Clear the screen for menu drawing
  468. LOCATE 2,0                     ;Locate the cursor for menu drawing
  469. MESSAGE "               ╒═════════╡ Newark BBS Directory (201) ╞═════════╕"
  470. MESSAGE "               │                                                │"
  471. MESSAGE "               │       -Board-                      -SIG-       │"
  472. MESSAGE "               │                                                │"
  473. MESSAGE "               │  < 1> Microsellar               120 Megabytes  │"
  474. MESSAGE "               │  < 2> Hotel California                         │"
  475. MESSAGE "               │  < 3> SEA Board                   Home of ARC  │"
  476. MESSAGE "               │  < 4> Sparta                   Hard Disk Info  │"
  477. MESSAGE "               │  < 5> The Data Base     123, dBase, Framework  │"
  478. MESSAGE "               │  < 6> BOSS BBS                                 │"
  479. MESSAGE "               │  < 7> Shelter                                  │"
  480. MESSAGE "               │  < 8> Ed Gelb's                                │"
  481. MESSAGE "               │  < 9>                                          │"
  482. MESSAGE "               │  <10>                                          │"
  483. MESSAGE "               │                                                │"
  484. MESSAGE "               │          <G>o back to city selection           │"
  485. MESSAGE "               │                                                │"
  486. MESSAGE "               ├────────────────────────────────────────────────┤"
  487. MESSAGE "               │  Enter 1-10 or other BBS phone number:         │"
  488. MESSAGE "               ╘════════════════════════════════════════════════╛"
  489. LOCATE 20,56                   ;Locate cursor for user input
  490. GET S9 7                       ;User input (7 characters)
  491. SWITCH S9                      ;Decision based on user input
  492.    CASE "1"
  493.       ASSIGN S2 "2391346"      ;Cases 1 through 10 are identical.  Each
  494.      ;ASSIGN S7 "COMMAND.VER"  ;assigns a phone number to be dialed to
  495.    ENDCASE                     ;S2, and a command file to be executed on
  496.    CASE "2"                    ;connect to S7 (the command file is
  497.       ASSIGN S2 "3278245"      ;optional).
  498.      ;ASSIGN S7 "COMMAND.VER"
  499.    ENDCASE
  500.    CASE "3"
  501.       ASSIGN S2 "6943348"
  502.      ;ASSIGN S7 "COMMAND.VER"
  503.    ENDCASE
  504.    CASE "4"
  505.       ASSIGN S2 "7295377"
  506.      ;ASSIGN S7 "COMMAND.VER"
  507.    ENDCASE
  508.    CASE "5"
  509.       ASSIGN S2 "9435419"
  510.      ;ASSIGN S7 "COMMAND.VER"
  511.    ENDCASE
  512.    CASE "6"
  513.       ASSIGN S2 "5687293"
  514.      ;ASSIGN S7 "COMMAND.VER"
  515.    ENDCASE
  516.    CASE "7"
  517.       ASSIGN S2 "7837458"
  518.      ;ASSIGN S7 "COMMAND.VER"
  519.    ENDCASE
  520.    CASE "8"
  521.       ASSIGN S2 "6947425"
  522.      ;ASSIGN S7 "COMMAND.VER"
  523.    ENDCASE
  524.    CASE "9"
  525.       ASSIGN S2 "XXXXXXX"
  526.      ;ASSIGN S7 "COMMAND.VER"
  527.    ENDCASE
  528.    CASE "10"
  529.       ASSIGN S2 "XXXXXXX"
  530.      ;ASSIGN S7 "COMMAND.VER"
  531.    ENDCASE
  532.    CASE "D"                    ;If user enters "D" . . .
  533.       EXECUTE "VERSA.CMD"      ;Leave the "D" in S9, execute VERSA
  534.    ENDCASE
  535.    CASE "E"                    ;If user enters "E" . . .
  536.       EXECUTE "VERSA.CMD"      ;Leave the "E" in S9, execute VERSA
  537.    ENDCASE
  538.    CASE "G"                    ;If user enters "G" . . .
  539.       EXECUTE "VERSA.CMD"      ;Leave the "G" in S9, execute VERSA
  540.    ENDCASE
  541.    DEFAULT                     ;Any other input should be a phone number
  542.       ASSIGN S2 S9             ;Assign user input to S2
  543.    ENDCASE
  544. ENDSWITCH                      ;All possibilities covered
  545. ASSIGN S9 "ACTIVE"             ;Finally, put "ACTIVE" in S9 . . .
  546. EXECUTE "VERSA.CMD"            ;And go back to VERSA
  547.